home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / lartb10.zip / ARTB10.ZIP / MAKEOBJ.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-27  |  704b  |  28 lines
  1. /*
  2. ** WORKLab, Krebber
  3. ** create LogoArt Object on Desktop
  4. */
  5.  
  6. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  7. call sysloadfuncs
  8.  
  9. parse arg where_obj
  10.  
  11. if where_obj = "" then
  12.    where_obj = "<WP_DESKTOP>";
  13.  
  14. /* CAUTION: assuming all executables are on current directory .. */
  15.  
  16. title = "LogoArt B1.X;"
  17. name= "EXENAME="||directory()||"\kicker.exe;"
  18. icon= "ICONFILE="||directory()||"\LogoArt.ico;"
  19. defdir="STARTUPDIR="||directory()||";"
  20.  
  21. vals = "PROGTYPE=PM;"||name||icon||defdir||"OBJECTID=<LOGOART_B10>";
  22.  
  23. rc = SysCreateObject(WPProgram, title, where_obj, vals);
  24.  
  25. if rc>0 then
  26.       say "Object successfully created, rc = " rc;
  27. else  say "Couldn't create object!, rc = " rc;
  28.